home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].po
/
BIT.ASSEMBLER.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
628b
|
14 lines
10 REM PROGRAM BIT.ASSEMBLER
20 REM THIS ROUTINE BREAKS A NUMBER UP INTO THE BINARY BITS
30 REM AND THEM REASSEMBLES THEM
40 REM IT IS USED TO CHANGE INDIVIDUAL BITS OF A BINARY NUMBER
50 HOME : PRINT "INPUT A NUMBER ";: INPUT N
60 IF N <0 OR N >255 THEN HOME : GOTO 50
70 FOR BT = 0 TO 7
80 D(BT) = (N - INT(N/2) *2): PRINT : PRINT "BIT ";BT;" IS ";D(BT): REM TAKE EACH BIT VALUE
90 N = INT(N/2): REM REDUCE VALUE
100 NEXT
110 REM REASSEMBLE THE BITS INTO DECIMAL VALUE
120 V = D(0) +2 *D(1) +4 *D(2) +8 *D(3) +16 *D(4) +32 *D(5) +64 *D(6) +128 *D(7)
130 PRINT : PRINT "THE VALUE ENTERED WAS ";V
140 END